<%
if session("tslt_username")="" then
       Response.redirect ("error.asp?info=ȵ¼޸")
       Response.end
end if
%>

<!--#INCLUDE FILE="wyconn.asp"-->

<SCRIPT for=text9 event=onblur language=javaScript>
        var mail = document.form1.text9.value;
        if (document.form1.text9.value != ""){
              if (mail.indexOf('@',0) == -1 || mail.indexOf('.',0) == -1){
                   alert("ĵ䣨E-mailַд\n¼");
                   document.form1.text9.value = ""
                   document.form1.text9.focus();
                   return false;
               }
        }
if (!isemail(document.form1.text9.value))
{
	return false;
}
function isemail (s)
{
	if (s.length > 100)
	{
		window.alert("emailַȲܳ100λ!");
                             document.form1.text9.value=""
		return false;
	}
	 var regu = "^(([0-9a-zA-Z]+)|([0-9a-zA-Z]+[_.0-9a-zA-Z-]*[0-9a-zA-Z]+))@([a-zA-Z0-9-]+[.])+([a-zA-Z]{2}|net|NET|com|COM|gov|GOV|mil|MIL|org|ORG|edu|EDU|int|INT)$";
	 var re = new RegExp(regu);
	 if (s.search(re) != -1) {
		return true;
	 } 
	 else {
		window.alert ("ЧϷE-mailַ ")
                             document.form1.text9.value=""
		return false;
	 }
}
</SCRIPT>
<SCRIPT for=text5 event=onblur language=javaScript>
      if( isNaN(document.form1.text5.value)) {
            alert("ȷĵ绰룡");
            document.form1.text5.value="";
            document.form1.text5.focus();
            return false;
      }
</SCRIPT>
<SCRIPT for=text6 event=onblur language=javaScript>
      if( isNaN(document.form1.text6.value)) {
            alert("ȷֻ룡");
            document.form1.text6.value="";
            document.form1.text6.focus();
      }else if(document.form1.text6.value.length!=11){
            alert("ȷֻ룡");
            document.form1.text6.value="";
            document.form1.text6.focus();
            return false;
      }
</SCRIPT>
<SCRIPT language="JavaScript">
      var w2="";
      function wordcolorvalue(){
            var t,i,k,s,wordcolor;
            s=16;
            t=new Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f");
            for(i=0;i<=5;i++)
            {
                  k=Math.floor((Math.random()*s));
                  wordcolor=t[k];
                  w2+=wordcolor;
             }
             w2="#" + w2;
       }
      function wordID(){
            var i,wordcolor;
            for(i=1;i<=6;i++)
            {
                    w2="";
                    wordcolorvalue();
                    eval("a"+i+".style.color='"+w2+"';");
             }
       }
</SCRIPT>

<%
dim id2, sql, rs
id2=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from ts_userinfo where username= '" & id2 & "'" 
rs.Open sql,conn,1,1
       if  session("tslt_username")<>rs("username") then
              Response.redirect ("error.asp?info=Ƿأ")
       end if
%>
       <HTML>
       <HEAD><title>¼</title>
       </HEAD>
       <BODY onload="JavaScript:wordID();">
       <P align=center><FONT face=Ĳ size=6><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span><span id=a5></span><span id=a6>Ϣ</span></FONT><hr>
       <FORM action="modify.asp?id=<%=rs("username")%>" method=post name=form1>
             <input type="hidden" name="isok" value="ok">
             <table align=center>
                  <TR><td><FONT face= size=4>û</FONT>
                            <td><INPUT maxlength=10 name=text1 value=<%=rs("username")%> ReadOnly=false>
                  <TR><td><FONT face= size=4></FONT>
                            <td><INPUT maxlength=10 name=text2 value=<%=rs("trueName")%>>
                  <TR><td><FONT face= size=4>Ա</FONT>
                            <td><SELECT name=sel1>
		     <OPTION><%=rs("sex")%></OPTION>
                                        <%if rs("sex")="" then%>
                                                 <OPTION>Ů</OPTION>
                                        <%elseif rs("sex")="Ů" then%>
                                                 <OPTION></OPTION>
                                        <%else%>
                                                 <OPTION>Ů</OPTION>
                                                 <OPTION></OPTION>
                                        <%end if%>
                   <TR><td><FONT face= size=4>գ</FONT>
                             <td><INPUT maxlength=10 name=text3 value=<%=rs("birthday")%>>
                   <TR><td><FONT face= size=4>Ȥã</FONT>
                            <td><INPUT maxlength=30 name=text4 value=<%=rs("interest")%>>
                   <TR><td><FONT face= size=4>ϵ绰</FONT>
                            <td><INPUT maxlength=30 name=text5 value=<%=rs("phone")%>>
                   <TR><td><FONT face= size=4>ֻ</FONT>
                            <td><INPUT maxlength=30 name=text6 value=<%=rs("handset")%>>
                   <TR><td><FONT face= size=4>ͥסַ</FONT>
                            <td><INPUT maxlength=30 name=text7 value=<%=rs("dwellingPlace")%>>
                   <TR><td><FONT face= size=4>ڵλ</FONT>
                             <td><INPUT maxlength=30 name=text8 value=<%=rs("company")%>>
                   <TR><td><FONT face= size=4>䣺</FONT>
                            <td><INPUT name=text9 value=<%=rs("Email")%>>
                   <TR><td><FONT face= size=4>QQ</FONT>
                            <td><INPUT maxlength=20 name=text10 value=<%=rs("myQQ")%>>
                   <TR><td><FONT face= size=4>ҵƬ</FONT>
                            <td><input type=checkbox name=mychk>
                   <TR><td colspan=2 align=center>
	          <INPUT type=submit value="ȷ޸">        	
 	          <INPUT type=button value="޸" name = b1 onclick="history.back()">
             </table>
       </FORM>
       <!--#INCLUDE FILE="bottom.asp"-->
       </BODY>
       </HTML>
<%
rs.close
set rs=nothing

dim sure
sure = Request("isok")
if sure = "ok" then
        borndate=trim(request("text3"))
        if borndate<>"" and borndate<>"-" then
               if isdate(borndate)=false then 
%>	
                       <script language=javaScript>
                              alert ("ȷգʽΪ(xxxx-xx-xx)Ϊ(xxxx/xx/xx)");
                              history.back
                              form1.text3.value="";
                              form1.text3.focus();
                       </script>
<%	
                       response.end
              end if
        end if

        dim name1,name2,sex,borndate,xqah,phone,hHandset,address,company,email,myQQ
        if trim(request("text1"))<>"" then name1=FiltraterChar(request("text1")) else name1="-"
        if trim(request("text2"))<>"" then name2=FiltraterChar(request("text2")) else name2="-"
        if trim(request("sel1"))<>"" then sex=FiltraterChar(request("sel1")) else sex="-"
        if trim(request("text3"))<>"" then borndate=FiltraterChar(request("text3")) else borndate="-"
        if trim(request("text4"))<>"" then xqah=FiltraterChar(request("text4")) else xqah="-"
        if trim(request("text5"))<>"" then phone=FiltraterChar(request("text5")) else phone="-"
        if trim(request("text6"))<>"" then hHandset=FiltraterChar(request("text6")) else hHandset="-" 
        if trim(request("text7"))<>"" then address=FiltraterChar(request("text7")) else address="-"
        if trim(request("text8"))<>"" then company=FiltraterChar(request("text8")) else company="-"
        if trim(request("text9"))<>"" then email=FiltraterChar(request("text9")) else email="-"
        if trim(request("text10"))<>"" then myQQ=FiltraterChar(request("text10")) else myQQ="-"

        if request("mychk")="on" then 
                dim userimage
                userimage=""
                sql="update ts_userinfo set trueName='"& name2 &"',sex='"& sex &"',birthday ='"&borndate&_
                "',interest='"&xqah&"',phone='"&phone&"',handset='"&hHandset&"',dwellingPlace='"&address&_
                "',company ='"&company&"',Email='"&email&"',myQQ='"&myQQ&"',userimage='"&userimage&"' where username='" & name1 & "'"
                conn.execute(sql)
       else
                sql="update ts_userinfo set trueName='"& name2 &"',sex='"& sex &"',birthday ='"&borndate&_
                "',interest='"&xqah&"',phone='"&phone&"',handset='"&hHandset&"',dwellingPlace='"&address&_
                "',company ='"&company&"',Email='"& email&"',myQQ='"&myQQ&"' where username='" & name1 & "'"
                conn.execute(sql)
       end if
       Response.redirect  ("error.asp?info=<font color=red size=4>ףأ޸Ѿɹ!</font>")  
end if

Call conn_Nothing()

Function FiltraterChar(str)
       FiltraterChar = Replace(Replace(Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", ""),"<", ""),">", "")
End Function
%>	

